home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Sound / EasyACDDA / EasyACDDA next >
Text File  |  2002-10-28  |  18KB  |  660 lines
  1. G4C
  2.  
  3. ;===============================================================================
  4.  
  5. ;$VER: EasyACDDA V. 1.7 by Alecos (14/10/2002)
  6.  
  7. ;EasyACDDA: requires Gui4Cli V. 3.8.5 - 27/06/2000
  8. ;EasyACDDA: requires CDDA V. 1.64 - 18/07/1998
  9. ;EasyACDDA: requires BreakName V. 37.2 - 24/05/1994
  10. ;EasyACDDA: requires Nice V. 1.0 - 20/12/1996
  11. ;-------------------------------------------------------------------------------
  12. ;EasyACDDA: V. 1.7 - 14/10/2002
  13. ;EasyACDDA: EuroWare ©2002 by Alessandro Marinuzzi [Alecos]
  14. ;EasyACDDA: contact: alecos@ltsnet.it
  15.  
  16. ;===============================================================================
  17. ; EasyACDDA, the best gui for your CDROM - Now, play&save a track is very simple
  18. ;===============================================================================
  19.  
  20. WinBig -1 -1 400 200 "EasyACDDA ©2002 by Alessandro Marinuzzi [Alecos]"
  21. WinType 11010000
  22. WinFont Helvetica.font 13 010
  23.  
  24. ;===============================================================================
  25.  
  26. xOnLoad
  27.   IfExists Assign ~EasyACDDA:
  28.     Extract EasyACDDA GuiPath EasyPath
  29.     Assign EasyACDDA: $EasyPath
  30.   EndIf
  31.  
  32. ;===============================================================================
  33.  
  34.   prog = EasyACDDA
  35.   type = EuroWare
  36.   vers = 1.7
  37.   date = 14/10/2002
  38.   name = "Alessandro Marinuzzi"
  39.   nick = Alecos
  40.   adds = "Via Torre Pilo n.14/c"
  41.   city = Palermo
  42.   code = 90151
  43.   ctry = Italy
  44.   mail = alecos@ltsnet.it
  45.  
  46. ;===============================================================================
  47.  
  48.   PLAN = e
  49.   VOL = 100
  50.   FORMAT = 0
  51.   MODE = 16BIT
  52.   FILE = DH1:Example.wav
  53.  
  54. ;===============================================================================
  55.  
  56.   DEVICE = atapi.device
  57.   UNIT = 1
  58.   MEMTYPE = 512
  59.   NOMEMTYPE = FALSE
  60.  
  61. ;===============================================================================
  62.  
  63.   IMAGE = EasyACDDA:EasyACDDA.bkg
  64.   TTGet :$prog
  65.   LoadImage $IMAGE Bkg *
  66.   GuiLoad EasyACDDA:EasyConfig
  67.   GuiLoad EasyACDDA:EasyTest
  68.   GuiOpen EasyACDDA
  69.   Update EasyACDDA 1 $VOL
  70.   Update EasyACDDA 47 $FORMAT
  71.   Update EasyACDDA 48 $MODE
  72.   Update EasyACDDA 49 $FILE
  73.   Image -1 -1 Bkg
  74.   
  75. ;===============================================================================
  76.  
  77. xMENU 'EasyACDDA' 'About' '' 'A'
  78.   GuiWindow EasyACDDA Wait
  79.   About = "$prog V. $vers - $date\n"
  80.   AppVar About "$prog ©2002 by $name [$nick]\n"
  81.   AppVar About "$prog is $type !\n\n"
  82.   AppVar About "Fullname: $name\n"
  83.   AppVar About "Address: $adds\n"
  84.   AppVar About "City: $city - ZipCode: $code\n"
  85.   AppVar About "Country: $ctry\n"
  86.   AppVar About "EMail: $mail\n\n"
  87.   AppVar About "Dedicated to my mother"
  88.   Gads = Okay|SendEMail
  89.   EzReq $About $Gads SendEMail
  90.   If $SendEMail = 0
  91.     CLI 'Run >NIL: C:OpenURL "mailto:alecos@ltsnet.it?subject=EasyACDDA?body=Hi! Alecos, thank you for this wonderful program!"'
  92.   EndIf
  93.   GuiWindow EasyACDDA Resume
  94.  
  95. xMENU 'EasyACDDA' 'Config' '' 'C'
  96.   GuiOpen EasyConfig
  97.   GoSub EasyACDDA NoBufMemType
  98.   GoSub EasyACDDA UpdateCDDA
  99.  
  100. xROUTINE NoBufMemType
  101.   If $NOMEMTYPE == FALSE
  102.     SetGad EasyConfig 56/57 On
  103.   Else
  104.     SetGad EasyConfig 56/57 Off
  105.     CLI 'Run >NIL: C:Delete ENV:CDDA_BUFMEMTYPE'
  106.     CLI 'Run >NIL: C:Delete ENVARC:CDDA_BUFMEMTYPE'
  107.   EndIf
  108.  
  109. xROUTINE UpdateCDDA
  110.   IfExists FILE ENV:CDDA_DEVICE
  111.     ReadVar ENV:CDDA_DEVICE 0 100 DEVICE
  112.     .device.bak = $DEVICE
  113.     Update EasyConfig 52 $DEVICE
  114.   Else
  115.     Update EasyConfig 52 $DEVICE
  116.     .device.bak = $DEVICE
  117.   EndIf
  118.   IfExists FILE ~ENVARC:CDDA_DEVICE
  119.     SetGad EasyConfig 53 Off
  120.   Else
  121.     SetGad EasyConfig 53 On
  122.   EndIf
  123.   IfExists FILE ENV:CDDA_UNIT
  124.     ReadVar ENV:CDDA_UNIT 0 100 UNIT
  125.     .unit.bak = $UNIT
  126.     Update EasyConfig 54 $UNIT
  127.   Else
  128.     .unit.bak = $UNIT
  129.     Update EasyConfig 54 $UNIT
  130.   EndIf
  131.   IfExists FILE ~ENVARC:CDDA_UNIT
  132.     SetGad EasyConfig 55 Off
  133.   Else
  134.     SetGad EasyConfig 55 On
  135.   EndIf
  136.   IfExists FILE ENV:CDDA_BUFMEMTYPE
  137.     ReadVar ENV:CDDA_BUFMEMTYPE 0 100 MEMTYPE
  138.     .memtype.bak = $MEMTYPE
  139.     Update EasyConfig 56 $MEMTYPE
  140.   Else
  141.     .memtype.bak = $MEMTYPE
  142.     Update EasyConfig 56 $MEMTYPE
  143.   EndIf
  144.   IfExists FILE ~ENVARC:CDDA_BUFMEMTYPE
  145.     SetGad EasyConfig 57 Off
  146.   Else
  147.     SetGad EasyConfig 57 On
  148.   EndIf
  149.  
  150. xMENU 'EasyACDDA' 'Test' '' 'T'
  151.   GuiOpen EasyTest
  152.   Update EasyTest 61 0
  153.  
  154. xMENU 'EasyACDDA' 'Quit' '' 'Q'
  155.   CLI 'Run >NIL: C:BreakName CDDA'
  156.   Assign EasyACDDA: Remove
  157.   FreeImage Bkg
  158.   GuiQuit EasyACDDA
  159.   GuiQuit EasyConfig
  160.   GuiQuit EasyTest
  161.   Quit
  162.  
  163. ;===============================================================================
  164.  
  165. xTEXTBOX 17 17 178 17 "" "Play a CD track..."
  166.   Attr TBStyle 2/1/Outline/Center
  167.  
  168. ;===============================================================================
  169.  
  170. xHSLIDER 67 160 129 17 '' VOL 0 100 100 ''
  171.   Attr Title "2/1/Outline/LSide/Middle/Vol. - | +"
  172.   GadFont Helvetica.font 11 010
  173.   GadID 1
  174.  
  175. ;===============================================================================
  176.  
  177. xBUTTON  17 50 17 17 "01"
  178.   OneTrack = 1
  179.   GoSub EasyACDDA PlayOneTrack
  180.   GadID 2
  181. xBUTTON  35 50 17 17 "02"
  182.   OneTrack = 2
  183.   GoSub EasyACDDA PlayOneTrack
  184.   GadID 3
  185. xBUTTON  53 50 17 17 "03"
  186.   OneTrack = 3
  187.   GoSub EasyACDDA PlayOneTrack
  188.   GadID 4
  189. xBUTTON  71 50 17 17 "04"
  190.   OneTrack = 4
  191.   GoSub EasyACDDA PlayOneTrack
  192.   GadID 5
  193. xBUTTON  89 50 17 17 "05"
  194.   OneTrack = 5
  195.   GoSub EasyACDDA PlayOneTrack
  196.   GadID 6
  197. xBUTTON 107 50 17 17 "06"
  198.   OneTrack = 6
  199.   GoSub EasyACDDA PlayOneTrack
  200.   GadID 7
  201. xBUTTON 125 50 17 17 "07"
  202.   OneTrack = 7
  203.   GoSub EasyACDDA PlayOneTrack
  204.   GadID 8
  205. xBUTTON 143 50 17 17 "08"
  206.   OneTrack = 8
  207.   GoSub EasyACDDA PlayOneTrack
  208.   GadID 9
  209. xBUTTON 161 50 17 17 "09"
  210.   OneTrack = 9
  211.   GoSub EasyACDDA PlayOneTrack
  212.   GadID 10
  213. xBUTTON 179 50 17 17 "10"
  214.   OneTrack = 10
  215.   GoSub EasyACDDA PlayOneTrack
  216.   GadID 11
  217.  
  218. ;===============================================================================
  219.  
  220. xBUTTON  17 68 17 17 "11"
  221.   OneTrack = 11
  222.   GoSub EasyACDDA PlayOneTrack
  223.   GadID 12
  224. xBUTTON  35 68 17 17 "12"
  225.   OneTrack = 12
  226.   GoSub EasyACDDA PlayOneTrack
  227.   GadID 13
  228. xBUTTON  53 68 17 17 "13"
  229.   OneTrack = 13
  230.   GoSub EasyACDDA PlayOneTrack
  231.   GadID 14
  232. xBUTTON  71 68 17 17 "14"
  233.   OneTrack = 14
  234.   GoSub EasyACDDA PlayOneTrack
  235.   GadID 15
  236. xBUTTON  89 68 17 17 "15"
  237.   OneTrack = 15
  238.   GoSub EasyACDDA PlayOneTrack
  239.   GadID 16
  240. xBUTTON 107 68 17 17 "16"
  241.   OneTrack = 16
  242.   GoSub EasyACDDA PlayOneTrack
  243.   GadID 17
  244. xBUTTON 125 68 17 17 "17"
  245.   OneTrack = 17
  246.   GoSub EasyACDDA PlayOneTrack
  247.   GadID 18
  248. xBUTTON 143 68 17 17 "18"
  249.   OneTrack = 18
  250.   GoSub EasyACDDA PlayOneTrack
  251.   GadID 19
  252. xBUTTON 161 68 17 17 "19"
  253.   OneTrack = 19
  254.   GoSub EasyACDDA PlayOneTrack
  255.   GadID 20
  256. xBUTTON 179 68 17 17 "20"
  257.   OneTrack = 20
  258.   GoSub EasyACDDA PlayOneTrack
  259.   GadID 21
  260.  
  261. ;===============================================================================
  262.  
  263. xBUTTON  17 86 17 17 "21"
  264.   OneTrack = 21
  265.   GoSub EasyACDDA PlayOneTrack
  266.   GadID 22
  267. xBUTTON  35 86 17 17 "22"
  268.   OneTrack = 22
  269.   GoSub EasyACDDA PlayOneTrack
  270.   GadID 23
  271. xBUTTON  53 86 17 17 "23"
  272.   OneTrack = 23
  273.   GoSub EasyACDDA PlayOneTrack
  274.   GadID 24
  275. xBUTTON  71 86 17 17 "24"
  276.   OneTrack = 24
  277.   GoSub EasyACDDA PlayOneTrack
  278.   GadID 25
  279. xBUTTON  89 86 17 17 "25"
  280.   OneTrack = 25
  281.   GoSub EasyACDDA PlayOneTrack
  282.   GadID 26
  283. xBUTTON 107 86 17 17 "26"
  284.   OneTrack = 26
  285.   GoSub EasyACDDA PlayOneTrack
  286.   GadID 27
  287. xBUTTON 125 86 17 17 "27"
  288.   OneTrack = 27
  289.   GoSub EasyACDDA PlayOneTrack
  290.   GadID 28
  291. xBUTTON 143 86 17 17 "28"
  292.   OneTrack = 28
  293.   GoSub EasyACDDA PlayOneTrack
  294.   GadID 29
  295. xBUTTON 161 86 17 17 "29"
  296.   OneTrack = 29
  297.   GoSub EasyACDDA PlayOneTrack
  298.   GadID 30
  299. xBUTTON 179 86 17 17 "30"
  300.   OneTrack = 30
  301.   GoSub EasyACDDA PlayOneTrack
  302.   GadID 31
  303.  
  304. ;===============================================================================
  305.  
  306. xBUTTON  17 104 17 17 "31"
  307.   OneTrack = 31
  308.   GoSub EasyACDDA PlayOneTrack
  309.   GadID 32
  310. xBUTTON  35 104 17 17 "32"
  311.   OneTrack = 32
  312.   GoSub EasyACDDA PlayOneTrack
  313.   GadID 33
  314. xBUTTON  53 104 17 17 "33"
  315.   OneTrack = 33
  316.   GoSub EasyACDDA PlayOneTrack
  317.   GadID 34
  318. xBUTTON  71 104 17 17 "34"
  319.   OneTrack = 34
  320.   GoSub EasyACDDA PlayOneTrack
  321.   GadID 35
  322. xBUTTON  89 104 17 17 "35"
  323.   OneTrack = 35
  324.   GoSub EasyACDDA PlayOneTrack
  325.   GadID 36
  326. xBUTTON 107 104 17 17 "36"
  327.   OneTrack = 36
  328.   GoSub EasyACDDA PlayOneTrack
  329.   GadID 37
  330. xBUTTON 125 104 17 17 "37"
  331.   OneTrack = 37
  332.   GoSub EasyACDDA PlayOneTrack
  333.   GadID 38
  334. xBUTTON 143 104 17 17 "38"
  335.   OneTrack = 38
  336.   GoSub EasyACDDA PlayOneTrack
  337.   GadID 39
  338. xBUTTON 161 104 17 17 "39"
  339.   OneTrack = 39
  340.   GoSub EasyACDDA PlayOneTrack
  341.   GadID 40
  342. xBUTTON 179 104 17 17 "40"
  343.   OneTrack = 40
  344.   GoSub EasyACDDA PlayOneTrack
  345.   GadID 41
  346.  
  347. xROUTINE PlayOneTrack
  348.   CLI 'Run >NIL: C:BreakName CDDA'
  349.   CLI 'Run >NIL: C:Nice PRI=127 CMD=C:CDDA Plan=$PLAN Track=$OneTrack Vol=$VOL'
  350.   OneTrack = 0
  351.  
  352. ;===============================================================================
  353.  
  354. xBUTTON 17 131 89 17 "Play"
  355.   CLI 'Run >NIL: C:BreakName CDDA'
  356.   CLI 'Run >NIL: C:Nice PRI=127 CMD=C:CDDA Plan=$PLAN Vol=$VOL'
  357.   GadID 42
  358. xBUTTON 107 131 89 17 "Stop"
  359.   CLI 'Run >NIL: C:BreakName CDDA'
  360.   GadID 43
  361.  
  362. ;===============================================================================
  363.  
  364. xTEXTBOX 205 17 178 17 "" "Save a CD track..."
  365.   Attr TBStyle 2/1/Outline/Center
  366.  
  367. ;===============================================================================
  368.  
  369. xTEXTIN 250 50 36 17 "" TRACK 0 3
  370.   Attr Title "2/1/Outline/LSide/Middle/Track"
  371.   GadFont Helvetica.font 11 010
  372.   GadID 44
  373.  
  374. xBUTTON 286 50 17 17 "-"
  375.   GadFont Helvetica.font 11 010
  376.   --TRACK
  377.   GoSub EasyACDDA RangeTrack
  378.   GadID 45
  379.  
  380. xBUTTON 303 50 17 17 "+"
  381.   GadFont Helvetica.font 11 010
  382.   ++TRACK
  383.   GoSub EasyACDDA RangeTrack
  384.   GadID 46
  385.  
  386. xROUTINE RangeTrack
  387.   If $TRACK > 40
  388.     TRACK = 40
  389.   ElseIf $TRACK < 1
  390.     TRACK = 1
  391.   EndIf
  392.   Update EasyACDDA 44 $TRACK
  393.  
  394. ;===============================================================================
  395.  
  396. xCYCLER 250 68 70 17 "" FORMAT
  397.   CSTR "8SVX" 0
  398.   CSTR "WAV"  1
  399.   CSTR "MAUD" 2
  400.   CSTR "AIFF" 3
  401.   Attr Title "2/1/Outline/LSide/Middle/Format"
  402.   GadFont Helvetica.font 11 010
  403.   GadID 47
  404.  
  405. ;===============================================================================
  406.  
  407. xCYCLER 250 86 70 17 "" MODE
  408.   CSTR "16BIT" 16BIT
  409.   CSTR "MONO"  MONO
  410.   CSTR "MUTE"  MUTE
  411.   Attr Title "2/1/Outline/LSide/Middle/Mode"
  412.   GadFont Helvetica.font 11 010
  413.   GadID 48
  414.  
  415. ;===============================================================================
  416.  
  417. xTEXTIN 250 104 118 17 "" FILE DH1:Example.wav 100
  418.   Attr Title "2/1/Outline/LSide/Middle/File"
  419.   GadFont Helvetica.font 11 010
  420.   GadID 49
  421.  
  422. xBUTTON 368 104 17 17 "<"
  423.   GadFont Helvetica.font 11 010
  424.   ReqFile -1 -1 300 200 'Choose path and name:' FILE FILE $FILE
  425.   Update EasyACDDA 49 $FILE
  426.   GadID 50
  427.  
  428. ;===============================================================================
  429.  
  430. xBUTTON 250 160 135 17 "Save track"
  431.   Gosub EasyACDDA SaveTrack
  432.   GadID 51
  433.   
  434. xROUTINE SaveTrack
  435.   If $FORMAT == 0
  436.     SetGad EasyACDDA 2/42 Off
  437.     CLI 'Run >NIL: C:BreakName CDDA'
  438.     Launch 1 'C:Nice PRI=127 CMD=C:CDDA Plan=$PLAN Track=$TRACK 8SVX $MODE Vol=$VOL File=$FILE'
  439.   ElseIf $FORMAT == 1
  440.     SetGad EasyACDDA 2/42 Off
  441.     CLI 'Run >NIL: C:BreakName CDDA'
  442.     Launch 1 'C:Nice PRI=127 CMD=C:CDDA Plan=$PLAN Track=$TRACK WAV $MODE Vol=$VOL File=$FILE'
  443.   ElseIf $FORMAT == 2
  444.     SetGad EasyACDDA 2/42 Off
  445.     CLI 'Run >NIL: C:BreakName CDDA'
  446.     Launch 1 'C:Nice PRI=127 CMD=C:CDDA Plan=$PLAN Track=$TRACK MAUD $MODE Vol=$VOL File=$FILE'
  447.   ElseIf $FORMAT == 3
  448.     SetGad EasyACDDA 2/42 Off
  449.     CLI 'Run >NIL: C:BreakName CDDA'
  450.     Launch 1 'C:Nice PRI=127 CMD=C:CDDA Plan=$PLAN Track=$TRACK $MODE Vol=$VOL File=$FILE'
  451.   EndIf
  452.  
  453. xOnRETURN 1
  454.   SetGad EasyACDDA 2/42 On
  455.  
  456. ;===============================================================================
  457.  
  458. xOnClose
  459.   CLI 'Run >NIL: C:BreakName CDDA'
  460.   Assign EasyACDDA: Remove
  461.   FreeImage Bkg
  462.   GuiQuit EasyACDDA
  463.   Quit
  464.  
  465. ;===============================================================================
  466. ; EasyConfig that allow to configure your CDROM - It's very very simple to use
  467. ;===============================================================================
  468.  
  469. NewFile EasyConfig
  470.  
  471. WinBig -1 -1 250 150 "CDROM Configuration"
  472. WinType 11010000
  473. WinFont Helvetica.font 13 010
  474. WinBackground IMAGE Bkg 0
  475. Image -1 -1 Bkg
  476. VarPath "EasyACDDA/EasyConfig/EasyTest"
  477.  
  478. ;===============================================================================
  479.  
  480. xTEXTBOX -1 17 216 17 "" "Configure your CDROM..."
  481.   Attr TBStyle 2/1/Outline/Center
  482.  
  483. ;===============================================================================
  484.  
  485. xTEXTIN -1 50 100 17 "" DEVICE atapi.device 100
  486.   Attr Title "2/1/Outline/LSide/Middle/Device"
  487.   GadFont Helvetica.font 11 010
  488.   Gosub EasyConfig RestoreDevice
  489.   GadID 52
  490.   
  491. xROUTINE RestoreDevice
  492.   If $DEVICE == ""
  493.     ReadVar ENV:.device.bak 0 100 DEVICE
  494.     Update EasyConfig 52 $DEVICE
  495.   EndIf
  496.  
  497. xBUTTON 175 50 17 17 "R"
  498.   GadFont Helvetica.font 11 010
  499.   ReadVar ENVARC:CDDA_DEVICE 0 100 DEVICE
  500.   Update EasyConfig 52 $DEVICE
  501.   GadID 53
  502.  
  503. ;===============================================================================
  504.  
  505. xTEXTIN -1 68 100 17 "" UNIT 1 2
  506.   Attr Title "2/1/Outline/LSide/Middle/Unit"
  507.   GadFont Helvetica.font 11 010
  508.   Gosub EasyConfig RestoreUnit
  509.   GadID 54
  510.   
  511. xROUTINE RestoreUnit
  512.   If $UNIT == ""
  513.     ReadVar ENV:.unit.bak 0 100 UNIT
  514.     Update EasyConfig 54 $UNIT
  515.   EndIf
  516.  
  517. xBUTTON 175 68 17 17 "R"
  518.   GadFont Helvetica.font 11 010
  519.   ReadVar ENVARC:CDDA_UNIT 0 100 UNIT
  520.   Update EasyConfig 54 $UNIT
  521.   GadID 55
  522.  
  523. ;===============================================================================
  524.  
  525. xTEXTIN -1 86 100 17 "" MEMTYPE 512 4
  526.   Attr Title "2/1/Outline/LSide/Middle/MemType"
  527.   GadFont Helvetica.font 11 010
  528.   Gosub EasyConfig RestoreMemType
  529.   GadID 56
  530.   
  531. xROUTINE RestoreMemType
  532.   If $MEMTYPE == ""
  533.     ReadVar ENV:.memtype.bak 0 100 MEMTYPE
  534.     Update EasyConfig 56 $MEMTYPE
  535.   EndIf
  536.  
  537. xBUTTON 175 86 17 17 "R"
  538.   GadFont Helvetica.font 11 010
  539.   ReadVar ENVARC:CDDA_BUFMEMTYPE 0 100 MEMTYPE
  540.   Update EasyConfig 56 $MEMTYPE
  541.   GadID 57
  542.  
  543. ;===============================================================================
  544.  
  545. xBUTTON 17 116 70 17 "Use"
  546.   ..CDDA_DEVICE = $DEVICE
  547.   ..CDDA_UNIT = $UNIT
  548.   If $NOMEMTYPE == FALSE
  549.     ..CDDA_BUFMEMTYPE = $MEMTYPE
  550.   EndIf
  551.   GuiClose EasyConfig
  552.   GadID 58
  553.  
  554. ;===============================================================================
  555.  
  556. xBUTTON -1 116 40 17 "HELP"
  557.   GadFont Helvetica.font 11 010
  558.   GuiWindow EasyConfig Wait
  559.   HelpC = "EasyACDDA checks each time if the configuration\n"
  560.   AppVar HelpC "files are saved on your harddisk and if no file is\n"
  561.   AppVar HelpC "found the gadgets R will appear disabled so you\n"
  562.   AppVar HelpC "will have to save your favorite configuration.\n"
  563.   AppVar HelpC "When done the gadgets R will appear enabled.\n"
  564.   AppVar HelpC "Note that if no configuration file is found, the\n"
  565.   AppVar HelpC "default values will be shown.\n\n"
  566.   AppVar HelpC "The gadgets R allow you to restore the last saved\n"
  567.   AppVar HelpC "configuration on your harddisk. This function works\n"
  568.   AppVar HelpC "only if you have changed the current configuration\n"
  569.   AppVar HelpC "using the button USE."
  570.   EzReq '$HelpC' Okay ''
  571.   GuiWindow EasyConfig Resume
  572.   GadID 59
  573.  
  574. ;===============================================================================
  575.  
  576. xBUTTON 162 116 70 17 "Save"
  577.   ..CDDA_DEVICE = $DEVICE
  578.   ..CDDA_UNIT = $UNIT
  579.   If $NOMEMTYPE == FALSE
  580.     ..CDDA_BUFMEMTYPE = $MEMTYPE
  581.   EndIf
  582.   CLI 'Run >NIL: C:Copy ENV:CDDA_DEVICE ENVARC:CDDA_DEVICE'
  583.   CLI 'Run >NIL: C:Copy ENV:CDDA_UNIT ENVARC:CDDA_UNIT'
  584.   If $NOMEMTYPE == FALSE
  585.     CLI 'Run >NIL: C:Copy ENV:CDDA_BUFMEMTYPE ENVARC:CDDA_BUFMEMTYPE'
  586.   EndIf
  587.   GuiClose EasyConfig
  588.   GadID 60
  589.  
  590. ;===============================================================================
  591.  
  592. xOnClose
  593.   GuiClose EasyConfig
  594.  
  595. ;===============================================================================
  596. ; EasyTest that allow to test your CDROM - So you set the proper tooltype value
  597. ;===============================================================================
  598.  
  599. NewFile EasyTest
  600.  
  601. WinBig -1 -1 250 115 "CDROM Test"
  602. WinType 11010000
  603. WinFont Helvetica.font 13 010
  604. WinBackground IMAGE Bkg 0
  605. Image -1 -1 Bkg
  606. VarPath "EasyACDDA/EasyConfig/EasyTest"
  607.  
  608. ;===============================================================================
  609.  
  610. xTEXTBOX -1 17 216 17 "" "Test your CDROM..."
  611.   Attr TBStyle 2/1/Outline/Center
  612.  
  613. ;===============================================================================
  614.  
  615. xCYCLER -1 50 80 17 "" Test
  616.   CSTR "PLAN = ?" -
  617.   CSTR "PLAN = a" a
  618.   CSTR "PLAN = b" b
  619.   CSTR "PLAN = c" c
  620.   CSTR "PLAN = d" d
  621.   CSTR "PLAN = e" e
  622.   CSTR "PLAN = f" f
  623.   Attr Title "2/1/Outline/LSide/Middle/CDROM"
  624.   GadFont Helvetica.font 11 010
  625.   GadID 61
  626.   
  627. ;===============================================================================
  628.  
  629. xBUTTON 17 80 70 17 "Test"
  630.   CLI 'Run >NIL: C:BreakName CDDA'
  631.   CLI 'Run >NIL: C:Nice PRI=127 CMD=C:CDDA Plan=$Test Vol=$VOL'
  632.   GadID 62
  633.  
  634. ;===============================================================================
  635.  
  636. xBUTTON -1 80 40 17 "HELP"
  637.   GadFont Helvetica.font 11 010
  638.   GuiWindow EasyTest Wait
  639.   HelpT = "Select one of the parameters available in the cycle menu,\n"
  640.   AppVar HelpT "press the button TEST. When done, wait and see if your\n"
  641.   AppVar HelpT "CDROM works. If you have found the right value then\n"
  642.   AppVar HelpT "you have to adjust the tooltype PLAN."
  643.   EzReq '$HelpT' Okay ''
  644.   GuiWindow EasyTest Resume
  645.   GadID 63
  646.  
  647. ;===============================================================================
  648.  
  649. xBUTTON 162 80 70 17 "Stop"
  650.   CLI 'Run >NIL: C:BreakName CDDA'
  651.   GadID 64
  652.  
  653. ;===============================================================================
  654.  
  655. xOnClose
  656.   CLI 'Run >NIL: C:BreakName CDDA'
  657.   GuiClose EasyTest
  658.  
  659. ;===============================================================================
  660.